home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / FORWARD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  554 b   |  26 lines
  1. PROGRAM forward_reference_example;
  2.  
  3. VAR number_of_times : INTEGER;
  4.  
  5. PROCEDURE write_a_line(VAR count : INTEGER); FORWARD;
  6.  
  7. PROCEDURE decrement(VAR index : INTEGER);
  8. BEGIN
  9.   index := index - 1;
  10.   IF index > 0 THEN
  11.     write_a_line(index);
  12. END;
  13.  
  14. PROCEDURE write_a_line;
  15. BEGIN
  16.   WRITELN('The value of the count is now ',count:4);
  17.   decrement(count);
  18. END;
  19.  
  20. BEGIN  (* main program *)
  21.   number_of_times := 7;
  22.   decrement(number_of_times);
  23.   WRITELN;
  24.   number_of_times := 7;
  25.   write_a_line(number_of_times);
  26. END.  (* of main program *)